home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / S-Sound and Music / (c)s3.d64 / ragtime.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  14KB  |  495 lines
  1. 0 RUN1
  2. 1 PRINT"[147]":POKE 53280,0:POKE 53281,0
  3. 2 PRINT:PRINT:PRINTTAB(10);"COMMODORE-64":PRINTTAB(13);"MUSIC"
  4. 110 L1=54272:L2=54279:L3=54286
  5. 120 H1=L1+1:H2=L2+1:H3=L3+1
  6. 130 V1=L1+4:V2=L2+4:V3=L3+4
  7. 140 POKE54296,15
  8. 150 POKEV1+1,28:POKEV1+2,170
  9. 160 POKEV2+1,26:POKEV2+2,170
  10. 170 POKEV3+1,26:POKEV3+2,170
  11. 180 T=TI:F=2.8
  12. 200 POKEV1,32:POKEV2,32:POKEV3,32
  13. 201 DIM DR(400),H1%(400),H2%(400),H3%(400)
  14. 202 DIM L1%(400),L2%(400),L3%(400)
  15. 203 FORX=1TO296:READDR(X),H1%(X),L1%(X),H2%(X),L2%(X),H3%(X),L3%(X):NEXT
  16. 204 T=TI:F=2.8
  17. 300 REM DURATION,HI1,LO1,...,HI3,LO3
  18. 310 A=1:B=32:GOSUB790
  19. 320 A=33:B=160:GOSUB800
  20. 325 A=33:B=152:GOSUB800
  21. 330 A=161:B=296:GOSUB800
  22. 340 GOTO 0
  23. 790 T=TI:F=2.8
  24. 800 REM
  25. 810 FORX=ATOB
  26. 820 POKEV1,32:POKEV2,32:POKEV3,32
  27. 830 IFH1%(X)THENPOKEH1,H1%(X):POKEL1,L1%(X):POKEV1,33
  28. 840 IFH2%(X)THENPOKEH2,H2%(X):POKEL2,L2%(X):POKEV2,33
  29. 850 IFH3%(X)THENPOKEH3,H3%(X):POKEL3,L3%(X):POKEV3,33
  30. 860 T=T+DR(X)*F
  31. 870 IFT>TIGOTO870
  32. 880 NEXT:RETURN
  33. 999 REM DURATION,HI1,LO1,...,HI3,LO3
  34. 1000 REM BAR I1
  35. 1010 DATA  5, 33,135,  0,  0, 16,195
  36. 1020 DATA  5,  0,  0,  0,  0,  0,  0
  37. 1030 DATA  5,  0,  0,  0,  0,  0,  0
  38. 1040 DATA  5, 37,162,  0,  0, 18,209
  39. 1050 DATA  5, 42, 62,  0,  0, 21, 31
  40. 1060 DATA  5, 39,223,  0,  0, 19,239
  41. 1070 DATA  5, 42, 62,  0,  0, 21, 31
  42. 1080 DATA  5,  0,  0,  0,  0,  0,  0
  43. 1090 :
  44. 1100 REM BAR I2
  45. 1110 DATA  5, 50, 60,  0,  0, 25, 30
  46. 1120 DATA  5,  0,  0,  0,  0,  0,  0
  47. 1130 DATA  5,  0,  0,  0,  0,  0,  0
  48. 1140 DATA  5, 56, 99,  0,  0, 28, 49
  49. 1150 DATA  5, 50, 60,  0,  0, 25, 30
  50. 1160 DATA  5,  0,  0,  0,  0,  0,  0
  51. 1170 DATA  5, 56, 99,  0,  0, 28, 49
  52. 1180 DATA  5, 63, 75,  0,  0, 31,165
  53. 1190 :
  54. 1200 REM BAR I3
  55. 1210 DATA  5, 67, 15,  0,  0, 33,135
  56. 1220 DATA  5,  0,  0,  0,  0,  0,  0
  57. 1230 DATA  5,  0,  0,  0,  0,  0,  0
  58. 1240 DATA  5, 39,223,  0,  0, 19,239
  59. 1250 DATA  5, 42, 62,  0,  0, 21, 31
  60. 1260 DATA  5, 26,156,  0,  0, 13, 78
  61. 1270 DATA  5, 28, 49,  0,  0, 14, 24
  62. 1280 DATA  5,  0,  0,  0,  0,  0,  0
  63. 1290 :
  64. 1300 REM BAR I4
  65. 1310 DATA  5, 28, 49,  0,  0, 11, 48
  66. 1320 DATA  5,  0,  0,  0,  0,  0,  0
  67. 1330 DATA  5, 25, 30,  0,  0, 10,143
  68. 1340 DATA  5,  0,  0,  0,  0,  0,  0
  69. 1350 DATA  5,  0,  0,  0,  0,  0,  0
  70. 1360 DATA  5,  0,  0,  0,  0,  0,  0
  71. 1370 DATA  5, 33,135,  0,  0, 10,143
  72. 1380 DATA  5,  0,  0,  0,  0,  9,247
  73. 1390 :
  74. 1400 REM BAR A1
  75. 1410 DATA  5, 31,165,  0,  0,  9,104
  76. 1420 DATA  5, 29,223,  0,  0,  0,  0
  77. 1430 DATA  5, 28, 49,  0,  0,  0,  0
  78. 1440 DATA  5, 25, 30,  0,  0, 12,143
  79. 1450 DATA  5,  0,  0, 22, 96, 15,210
  80. 1460 DATA  5, 26,156,  0,  0,  0,  0
  81. 1470 DATA  5, 28, 49,  0,  0,  9,104
  82. 1480 DATA  5, 29,223,  0,  0,  0,  0
  83. 1490 :
  84. 1500 REM BAR A2
  85. 1510 DATA  5, 31,165,  0,  0,  6, 71
  86. 1520 DATA  5, 44,193, 37,162,  0,  0
  87. 1530 DATA  5, 50, 60, 35,134,  0,  0
  88. 1540 DATA  5, 44,193, 37,162, 12,143
  89. 1550 DATA  5,  0,  0, 22, 96, 15,210
  90. 1560 DATA  5, 50, 60, 35,134,  0,  0
  91. 1570 DATA  5, 44,193, 37,162,  9,247
  92. 1580 DATA  5, 31,165,  0,  0,  0,  0
  93. 1590 :
  94. 1600 REM BAR A3
  95. 1610 DATA  5, 33,135,  0,  0, 10,143
  96. 1620 DATA  5, 31,165,  0,  0,  0,  0
  97. 1630 DATA  5, 28, 49,  0,  0,  0,  0
  98. 1640 DATA  5, 25, 30,  0,  0, 12,143
  99. 1650 DATA  5,  0,  0, 21, 31, 16,195
  100. 1660 DATA  5, 26,156,  0,  0,  0,  0
  101. 1670 DATA  5, 28, 49,  0,  0, 12,143
  102. 1680 DATA  5, 31,165,  0,  0,  0,  0
  103. 1690 :
  104. 1700 REM BAR A4
  105. 1710 DATA  5, 33,135,  0,  0,  8, 97
  106. 1720 DATA  5, 50, 60, 42, 62,  0,  0
  107. 1730 DATA  5, 56, 99, 39,223,  0,  0
  108. 1740 DATA  5, 50, 60, 42, 62, 12,143
  109. 1750 DATA  5,  0,  0, 21, 31, 16,195
  110. 1760 DATA  5, 56, 99, 39,223,  0,  0
  111. 1770 DATA  5, 50, 60, 42, 62, 10,143
  112. 1780 DATA  5, 35,134,  0,  0,  0,  0
  113. 1790 :
  114. 1800 REM BAR A5
  115. 1810 DATA  5, 37,162,  0,  0, 11, 48
  116. 1820 DATA  5, 44,193,  0,  0,  0,  0
  117. 1830 DATA  5, 56, 99,  0,  0,  0,  0
  118. 1840 DATA  5, 75, 69, 44,193, 14, 24
  119. 1850 DATA  5,  0,  0, 22, 96, 18,209
  120. 1860 DATA  5, 44,193,  0,  0,  0,  0
  121. 1870 DATA  5, 42, 62,  0,  0, 14, 24
  122. 1880 DATA  5, 37,162,  0,  0,  0,  0
  123. 1890 :
  124. 1900 REM BAR A6
  125. 1910 DATA  5,  0,  0,  0,  0, 11, 48
  126. 1920 DATA  5, 26,156, 16,195,  0,  0
  127. 1930 DATA  5,  0,  0,  0,  0, 11, 48
  128. 1940 DATA  5, 25, 30, 15,210,  0,  0
  129. 1950 DATA  5,  0,  0,  0,  0,  9,104
  130. 1960 DATA  5,  0,  0,  0,  0, 10,143
  131. 1970 DATA  5, 37,162,  0,  0, 11, 48
  132. 1980 DATA  5,  0,  0,  0,  0,  0,  0
  133. 1990 :
  134. 2000 REM BAR A7
  135. 2010 DATA  5, 33,135,  0,  0, 10,143
  136. 2020 DATA  5, 42, 62,  0,  0,  0,  0
  137. 2030 DATA  5, 50, 60,  0,  0,  0,  0
  138. 2040 DATA  5, 67, 15, 42, 62, 12,143
  139. 2050 DATA  5,  0,  0,  0,  0, 16,195
  140. 2060 DATA  5, 42, 62,  0,  0,  0,  0
  141. 2070 DATA  5, 37,162,  0,  0, 12,143
  142. 2080 DATA  5, 33,135,  0,  0,  0,  0
  143. 2090 :
  144. 2100 REM BAR A8
  145. 2110 DATA  5,  0,  0,  0,  0,  9,247
  146. 2120 DATA  5, 23,181, 16,195,  0,  0
  147. 2130 DATA  5,  0,  0,  0,  0, 10,143
  148. 2140 DATA  5, 25, 30, 16,195,  0,  0
  149. 2150 DATA  5,  0,  0,  0,  0,  8, 97
  150. 2160 DATA  5,  0,  0,  0,  0,  9,104
  151. 2170 DATA  5, 33,135,  0,  0, 10,143
  152. 2180 DATA  5,  0,  0,  0,  0,  9,247
  153. 2190 :
  154. 2200 REM BAR A9
  155. 2210 DATA  5, 31,165,  0,  0,  9,104
  156. 2220 DATA  5, 29,223,  0,  0,  0,  0
  157. 2230 DATA  5, 28, 49,  0,  0,  0,  0
  158. 2240 DATA  5, 25, 30,  0,  0, 12,143
  159. 2250 DATA  5,  0,  0, 22, 96, 15,210
  160. 2260 DATA  5, 26,156,  0,  0,  0,  0
  161. 2270 DATA  5, 28, 49,  0,  0,  9,104
  162. 2280 DATA  5, 29,223,  0,  0,  0,  0
  163. 2290 :
  164. 2300 REM BAR A10
  165. 2310 DATA  5, 31,165,  0,  0,  6, 71
  166. 2320 DATA  5, 44,193, 37,162,  0,  0
  167. 2330 DATA  5, 50, 60, 35,134,  0,  0
  168. 2340 DATA  5, 44,193, 37,162, 12,143
  169. 2350 DATA  5,  0,  0, 22, 96, 15,210
  170. 2360 DATA  5, 50, 60, 35,134,  0,  0
  171. 2370 DATA  5, 44,193, 37,162,  9,247
  172. 2380 DATA  5, 31,165,  0,  0,  0,  0
  173. 2390 :
  174. 2400 REM BAR A11
  175. 2410 DATA  5, 33,135,  0,  0, 10,143
  176. 2420 DATA  5, 31,165,  0,  0,  0,  0
  177. 2430 DATA  5, 28, 49,  0,  0,  0,  0
  178. 2440 DATA  5, 25, 30,  0,  0, 12,143
  179. 2450 DATA  5,  0,  0, 21, 31, 16,195
  180. 2460 DATA  5, 26,156,  0,  0,  0,  0
  181. 2470 DATA  5, 28, 49,  0,  0, 12,143
  182. 2480 DATA  5, 31,165,  0,  0,  0,  0
  183. 2490 :
  184. 2500 REM BAR A12
  185. 2510 DATA  5, 33,135,  0,  0,  8, 97
  186. 2520 DATA  5, 50, 60, 42, 62,  0,  0
  187. 2530 DATA  5, 56, 99, 39,223,  0,  0
  188. 2540 DATA  5, 50, 60, 42, 62, 12,143
  189. 2550 DATA  5,  0,  0, 21, 31, 16,195
  190. 2560 DATA  5, 56, 99, 39,223,  0,  0
  191. 2570 DATA  5, 50, 60, 42, 62,  8, 97
  192. 2580 DATA  5, 29,223,  0,  0,  0,  0
  193. 2590 :
  194. 2600 REM BAR A13
  195. 2610 DATA  5, 28, 49,  0,  0, 11, 48
  196. 2620 DATA  5, 56, 99, 44,193,  0,  0
  197. 2630 DATA  5,  0,  0,  0,  0,  0,  0
  198. 2640 DATA  5, 67, 15, 56, 99, 14, 24
  199. 2650 DATA  5,  0,  0,  0,  0, 16,195
  200. 2660 DATA  5, 63, 75, 31,165,  0,  0
  201. 2670 DATA  5, 67, 15, 33,135, 14, 24
  202. 2680 DATA  5, 75, 69, 37,162,  0,  0
  203. 2690 :
  204. 2700 REM BAR A14
  205. 2710 DATA  5, 79,191, 56, 99, 23,181
  206. 2720 DATA  5,  0,  0,  0,  0,  0,  0
  207. 2730 DATA  5,  0,  0,  0,  0,  0,  0
  208. 2740 DATA  5,  0,  0,  0,  0,  0,  0
  209. 2750 DATA  5, 75, 69, 56, 99, 22, 96
  210. 2760 DATA  5,  0,  0,  0,  0,  0,  0
  211. 2770 DATA  5, 53, 57, 33,135,  0,  0
  212. 2780 DATA  5,  0,  0,  0,  0,  0,  0
  213. 2790 :
  214. 2800 REM BAR A15
  215. 2810 DATA  5, 50, 60, 42, 62,  0,  0
  216. 2820 DATA  5,  0,  0,  0,  0, 10,143
  217. 2830 DATA  5,  0,  0,  0,  0, 11, 48
  218. 2840 DATA  5,  0,  0,  0,  0, 11,218
  219. 2850 DATA  5,  0,  0,  0,  0, 12,143
  220. 2860 DATA  5, 75, 69, 44,193, 15,210
  221. 2870 DATA  5,  0,  0,  0,  0,  6, 71
  222. 2880 DATA  5, 84,125, 50, 60,  0,  0
  223. 2889 :
  224. 2890 REM BAR A16-1
  225. 2891 DATA  5, 67, 15, 42, 62,  8, 97
  226. 2892 DATA  5,  0,  0,  0,  0, 10,143
  227. 2893 DATA  5,  0,  0,  0,  0, 11, 48
  228. 2894 DATA  5,  0,  0,  0,  0, 11,218
  229. 2895 DATA  5, 42, 62,  0,  0, 12,143
  230. 2896 DATA  5, 37,162,  0,  0, 11, 48
  231. 2897 DATA  5, 33,135,  0,  0, 10,143
  232. 2898 DATA  5,  0,  0,  0,  0,  9,247
  233. 2899 :
  234. 2900 REM BAR A16-2
  235. 2910 DATA  5, 67, 15, 42, 62,  8, 97
  236. 2920 DATA  5,  0,  0,  0,  0,  0,  0
  237. 2930 DATA  5,  0,  0,  0,  0, 12,143
  238. 2940 DATA  5,  0,  0,  0,  0,  8, 97
  239. 2950 DATA  5,  0,  0,  0,  0,  0,  0
  240. 2960 DATA  5,  0,  0,  0,  0,  0,  0
  241. 2970 DATA  8, 21, 31, 14,239,  8, 97
  242. 2980 DATA  5,  0,  0,  0,  0,  0,  0
  243. 2990 :
  244. 3000 REM BAR C1
  245. 3010 DATA  5, 22, 96, 14, 24, 11, 48
  246. 3020 DATA  5,  0,  0, 14,239, 12,143
  247. 3030 DATA  5,  0,  0, 15,210, 13, 78
  248. 3040 DATA  5,  0,  0, 16,195, 14, 24
  249. 3050 DATA  5,  0,  0,  0,  0,  0,  0
  250. 3060 DATA  5, 28, 49,  0,  0, 11, 48
  251. 3070 DATA  5, 44,193, 37,162,  9,104
  252. 3080 DATA  5,  0,  0,  0,  0,  8, 97
  253. 3090 :
  254. 3100 REM BAR C2
  255. 3110 DATA  5, 44,193, 37,162,  7,119
  256. 3120 DATA  5,  0,  0,  0,  0, 14,239
  257. 3130 DATA  5,  0,  0,  0,  0, 16,195
  258. 3140 DATA  5, 29,223, 25, 30, 18,209
  259. 3150 DATA  5,  0,  0,  0,  0,  0,  0
  260. 3160 DATA  5, 29,223,  0,  0,  0,  0
  261. 3170 DATA  5, 44,193, 37,162,  7,119
  262. 3180 DATA  5,  0,  0,  0,  0,  0,  0
  263. 3190 :
  264. 3200 REM BAR C3
  265. 3210 DATA  5, 44,193, 37,162,  8, 97
  266. 3220 DATA  5,  0,  0,  0,  0, 12,143
  267. 3230 DATA  5,  0,  0,  0,  0, 14, 24
  268. 3240 DATA  5, 42, 62, 33,135, 14,239
  269. 3250 DATA  5,  0,  0,  0,  0,  0,  0
  270. 3260 DATA  5, 39,223,  0,  0,  0,  0
  271. 3270 DATA  5, 42, 62, 29,223,  4, 48
  272. 3280 DATA  5,  0,  0,  0,  0,  0,  0
  273. 3290 :
  274. 3300 REM BAR C4
  275. 3310 DATA  5, 42, 62, 28, 49,  5,152
  276. 3320 DATA  5,  0,  0,  0,  0, 13, 78
  277. 3330 DATA  5,  0,  0,  0,  0, 14, 24
  278. 3340 DATA  5, 28, 49, 22, 96, 16,195
  279. 3350 DATA  5,  0,  0,  0,  0,  0,  0
  280. 3360 DATA  5,  0,  0,  0,  0,  0,  0
  281. 3370 DATA  5, 21, 31, 14,239,  8, 97
  282. 3380 DATA  5,  0,  0,  0,  0,  0,  0
  283. 3390 :
  284. 3400 REM BAR C5
  285. 3410 DATA  5, 22, 96, 14, 24, 11, 48
  286. 3420 DATA  5,  0,  0, 14,239, 12,143
  287. 3430 DATA  5,  0,  0, 15,210, 13, 78
  288. 3440 DATA  5,  0,  0, 16,195, 14, 24
  289. 3450 DATA  5,  0,  0,  0,  0,  0,  0
  290. 3460 DATA  5, 28, 49,  0,  0,  0,  0
  291. 3470 DATA  5, 33,135, 28, 49, 11, 48
  292. 3480 DATA  5, 37,162,  0,  0,  0,  0
  293. 3490 :
  294. 3500 REM BAR C6
  295. 3510 DATA  5, 42, 62,  0,  0, 10,143
  296. 3520 DATA  5,  0,  0, 33,135, 21, 31
  297. 3530 DATA  5,  0,  0, 31,165, 18,209
  298. 3540 DATA  5,  0,  0, 28, 49, 16,195
  299. 3550 DATA  5,  0,  0,  0,  0,  0,  0
  300. 3560 DATA  5, 39,223,  0,  0, 14, 24
  301. 3570 DATA  5, 42, 62, 28, 49, 10,143
  302. 3580 DATA  5,  0,  0,  0,  0,  8, 97
  303. 3590 :
  304. 3600 REM BAR C7
  305. 3610 DATA  5, 42, 62, 21, 31,  5, 71
  306. 3620 DATA  5,  0,  0, 31,165, 18,209
  307. 3630 DATA  5,  0,  0, 28, 49, 16,195
  308. 3640 DATA  5,  0,  0, 26,156, 15,210
  309. 3650 DATA  5,  0,  0,  0,  0,  0,  0
  310. 3660 DATA  5, 39,223,  0,  0,  0,  0
  311. 3670 DATA  5, 42, 62, 26,156, 10,143
  312. 3680 DATA  5,  0,  0,  0,  0,  0,  0
  313. 3690 :
  314. 3700 REM BAR C8
  315. 3710 DATA  5, 42, 62, 28, 49, 14, 24
  316. 3720 DATA  5,  0,  0,  0,  0,  0,  0
  317. 3730 DATA  5,  0,  0,  0,  0, 10,143
  318. 3740 DATA  5,  0,  0,  0,  0,  7, 12
  319. 3750 DATA  5,  0,  0,  0,  0,  0,  0
  320. 3760 DATA  5,  0,  0,  0,  0,  0,  0
  321. 3770 DATA  5, 21, 31, 29,223,  8, 97
  322. 3780 DATA  5,  0,  0,  0,  0,  0,  0
  323. 3790 :
  324. 3800 REM BAR C9
  325. 3810 DATA  5, 22, 96, 14, 24, 11, 48
  326. 3820 DATA  5,  0,  0, 14,239, 12,143
  327. 3830 DATA  5,  0,  0, 15,210, 13, 78
  328. 3840 DATA  5,  0,  0, 16,195, 14, 24
  329. 3850 DATA  5,  0,  0,  0,  0,  0,  0
  330. 3860 DATA  5, 28, 49,  0,  0, 11, 48
  331. 3870 DATA  5, 44,193, 37,162,  9,104
  332. 3880 DATA  5,  0,  0,  0,  0,  8, 97
  333. 3890 :
  334. 3900 REM BAR C10
  335. 3910 DATA  5, 44,193, 37,162,  7,119
  336. 3920 DATA  5,  0,  0,  0,  0, 14,239
  337. 3930 DATA  5,  0,  0,  0,  0, 16,195
  338. 3940 DATA  5, 29,223, 25, 30, 18,209
  339. 3950 DATA  5,  0,  0,  0,  0,  0,  0
  340. 3960 DATA  5, 29,223,  0,  0,  0,  0
  341. 3970 DATA  5, 44,193, 37,162,  7,119
  342. 3980 DATA  5,  0,  0,  0,  0,  0,  0
  343. 3990 :
  344. 4000 REM BAR C11
  345. 4010 DATA  5, 44,193, 37,162,  8, 97
  346. 4020 DATA  5,  0,  0,  0,  0, 12,143
  347. 4030 DATA  5,  0,  0,  0,  0, 14, 24
  348. 4040 DATA  5, 42, 62, 33,135, 14,239
  349. 4050 DATA  5,  0,  0,  0,  0,  0,  0
  350. 4060 DATA  5, 39,223,  0,  0,  0,  0
  351. 4070 DATA  5, 42, 62, 29,223,  4, 48
  352. 4080 DATA  5,  0,  0,  0,  0,  0,  0
  353. 4090 :
  354. 4100 REM BAR C12
  355. 4110 DATA  5, 42, 62, 28, 49,  5,152
  356. 4120 DATA  5,  0,  0,  0,  0, 13, 78
  357. 4130 DATA  5,  0,  0,  0,  0, 14, 24
  358. 4140 DATA  5, 28, 49, 22, 96, 16,195
  359. 4150 DATA  5,  0,  0,  0,  0,  0,  0
  360. 4160 DATA  5,  0,  0,  0,  0,  0,  0
  361. 4170 DATA  5, 28, 49, 22, 96,  9,247
  362. 4180 DATA  5,  0,  0,  0,  0,  0,  0
  363. 4190 :
  364. 4200 REM BAR C13
  365. 4210 DATA  5, 29,223, 22, 96,  9,104
  366. 4220 DATA  5,  0,  0,  0,  0, 11, 48
  367. 4230 DATA  5,  0,  0,  0,  0, 14,239
  368. 4240 DATA  5, 29,223, 22, 96, 18,209
  369. 4250 DATA  5,  0,  0,  0,  0,  0,  0
  370. 4260 DATA  5, 33,135,  0,  0,  0,  0
  371. 4270 DATA  5, 29,223, 22, 96, 17,195
  372. 4280 DATA  5,  0,  0,  0,  0,  0,  0
  373. 4290 :
  374. 4300 REM BAR C14
  375. 4310 DATA  5, 28, 49, 22, 96, 16,195
  376. 4320 DATA  5, 28, 49, 22, 96, 16,195
  377. 4330 DATA  5,  0,  0,  0,  0,  0,  0
  378. 4340 DATA  5, 26,156, 22, 96, 15,210
  379. 4350 DATA  5,  0,  0,  0,  0,  0,  0
  380. 4360 DATA  5,  0,  0,  0,  0,  0,  0
  381. 4370 DATA  5, 37,162, 26,156, 15,210
  382. 4380 DATA  5,  0,  0,  0,  0,  0,  0
  383. 4390 :
  384. 4400 REM BAR C15
  385. 4410 DATA  5, 37,162, 28, 49, 16,195
  386. 4420 DATA  5, 33,135,  0,  0,  0,  0
  387. 4430 DATA  5,  0,  0,  0,  0,  0,  0
  388. 4440 DATA  5, 29,223, 21, 31,  8, 97
  389. 4450 DATA  5,  0,  0,  0,  0,  0,  0
  390. 4460 DATA  5,  0,  0,  0,  0,  0,  0
  391. 4470 DATA  5, 28, 49, 21, 31,  0,  0
  392. 4480 DATA  5,  0,  0,  0,  0,  0,  0
  393. 4490 :
  394. 4500 REM BAR C16
  395. 4510 DATA  5, 22, 96, 14, 24, 11, 48
  396. 4520 DATA  5,  0,  0,  0,  0,  0,  0
  397. 4530 DATA  5,  0,  0,  0,  0,  0,  0
  398. 4540 DATA  5,  0,  0,  0,  0,  8, 97
  399. 4550 DATA  5,  0,  0,  0,  0,  5,152
  400. 4560 DATA  5,  0,  0,  0,  0,  0,  0
  401. 4570 DATA  5,  0,  0,  0,  0,  0,  0
  402. 4580 DATA  5,  0,  0,  0,  0,  0,  0
  403. 4590 :
  404. 4600 REM BAR
  405. 4610 DATA  5,  0,  0,  0,  0,  0,  0
  406. 4620 DATA  5,  0,  0,  0,  0,  0,  0
  407. 4630 DATA  5,  0,  0,  0,  0,  0,  0
  408. 4640 DATA  5,  0,  0,  0,  0,  0,  0
  409. 4650 DATA  5,  0,  0,  0,  0,  0,  0
  410. 4660 DATA  5,  0,  0,  0,  0,  0,  0
  411. 4670 DATA  5,  0,  0,  0,  0,  0,  0
  412. 4680 DATA  5,  0,  0,  0,  0,  0,  0
  413. 4690 :
  414. 4700 REM BAR
  415. 4710 DATA  5,  0,  0,  0,  0,  0,  0
  416. 4720 DATA  5,  0,  0,  0,  0,  0,  0
  417. 4730 DATA  5,  0,  0,  0,  0,  0,  0
  418. 4740 DATA  5,  0,  0,  0,  0,  0,  0
  419. 4750 DATA  5,  0,  0,  0,  0,  0,  0
  420. 4760 DATA  5,  0,  0,  0,  0,  0,  0
  421. 4770 DATA  5,  0,  0,  0,  0,  0,  0
  422. 4780 DATA  5,  0,  0,  0,  0,  0,  0
  423. 4790 :
  424. 4800 REM BAR
  425. 4810 DATA  5,  0,  0,  0,  0,  0,  0
  426. 4820 DATA  5,  0,  0,  0,  0,  0,  0
  427. 4830 DATA  5,  0,  0,  0,  0,  0,  0
  428. 4840 DATA  5,  0,  0,  0,  0,  0,  0
  429. 4850 DATA  5,  0,  0,  0,  0,  0,  0
  430. 4860 DATA  5,  0,  0,  0,  0,  0,  0
  431. 4870 DATA  5,  0,  0,  0,  0,  0,  0
  432. 4880 DATA  5,  0,  0,  0,  0,  0,  0
  433. 4890 :
  434. 4900 REM BAR
  435. 4910 DATA  5,  0,  0,  0,  0,  0,  0
  436. 4920 DATA  5,  0,  0,  0,  0,  0,  0
  437. 4930 DATA  5,  0,  0,  0,  0,  0,  0
  438. 4940 DATA  5,  0,  0,  0,  0,  0,  0
  439. 4950 DATA  5,  0,  0,  0,  0,  0,  0
  440. 4960 DATA  5,  0,  0,  0,  0,  0,  0
  441. 4970 DATA  5,  0,  0,  0,  0,  0,  0
  442. 4980 DATA  5,  0,  0,  0,  0,  0,  0
  443. 4990 :
  444. 5000 REM BAR
  445. 5010 DATA  5,  0,  0,  0,  0,  0,  0
  446. 5020 DATA  5,  0,  0,  0,  0,  0,  0
  447. 5030 DATA  5,  0,  0,  0,  0,  0,  0
  448. 5040 DATA  5,  0,  0,  0,  0,  0,  0
  449. 5050 DATA  5,  0,  0,  0,  0,  0,  0
  450. 5060 DATA  5,  0,  0,  0,  0,  0,  0
  451. 5070 DATA  5,  0,  0,  0,  0,  0,  0
  452. 5080 DATA  5,  0,  0,  0,  0,  0,  0
  453. 5090 :
  454. 5100 REM BAR
  455. 5110 DATA  5,  0,  0,  0,  0,  0,  0
  456. 5120 DATA  5,  0,  0,  0,  0,  0,  0
  457. 5130 DATA  5,  0,  0,  0,  0,  0,  0
  458. 5140 DATA  5,  0,  0,  0,  0,  0,  0
  459. 5150 DATA  5,  0,  0,  0,  0,  0,  0
  460. 5160 DATA  5,  0,  0,  0,  0,  0,  0
  461. 5170 DATA  5,  0,  0,  0,  0,  0,  0
  462. 5180 DATA  5,  0,  0,  0,  0,  0,  0
  463. 5190 :
  464. 5200 REM BAR
  465. 5210 DATA  5,  0,  0,  0,  0,  0,  0
  466. 5220 DATA  5,  0,  0,  0,  0,  0,  0
  467. 5230 DATA  5,  0,  0,  0,  0,  0,  0
  468. 5240 DATA  5,  0,  0,  0,  0,  0,  0
  469. 5250 DATA  5,  0,  0,  0,  0,  0,  0
  470. 5260 DATA  5,  0,  0,  0,  0,  0,  0
  471. 5270 DATA  5,  0,  0,  0,  0,  0,  0
  472. 5280 DATA  5,  0,  0,  0,  0,  0,  0
  473. 5290 :
  474. 5300 REM BAR
  475. 5310 DATA  5,  0,  0,  0,  0,  0,  0
  476. 5320 DATA  5,  0,  0,  0,  0,  0,  0
  477. 5330 DATA  5,  0,  0,  0,  0,  0,  0
  478. 5340 DATA  5,  0,  0,  0,  0,  0,  0
  479. 5350 DATA  5,  0,  0,  0,  0,  0,  0
  480. 5360 DATA  5,  0,  0,  0,  0,  0,  0
  481. 5370 DATA  5,  0,  0,  0,  0,  0,  0
  482. 5380 DATA  5,  0,  0,  0,  0,  0,  0
  483. 5390 :
  484. 5400 REM BAR
  485. 5410 DATA  5,  0,  0,  0,  0,  0,  0
  486. 5420 DATA  5,  0,  0,  0,  0,  0,  0
  487. 5430 DATA  5,  0,  0,  0,  0,  0,  0
  488. 5440 DATA  5,  0,  0,  0,  0,  0,  0
  489. 5450 DATA  5,  0,  0,  0,  0,  0,  0
  490. 5460 DATA  5,  0,  0,  0,  0,  0,  0
  491. 5470 DATA  5,  0,  0,  0,  0,  0,  0
  492. 5480 DATA  5,  0,  0,  0,  0,  0,  0
  493. 5490 :
  494. 9999 DATA0,0,0,0,0,0,0,0,0
  495.